if (x[0]>=0) then y=1 endif